1 :REM---ZEILENSTOP
5 :DIMA,B,C,D:GOTO100
10 :
20 :H=PEEK(A):PRINT;:SYS65374
21 POKEA,C:SYS65374:POKEA,D:A=A:A=A:A=A   :IFPEEK(B)=.GOTO21
22 :POKEA,H:I=39:GOTO30
25 :
30 :A=53281:REM--FARBWECHSEL
31 :B=.:FORI=ITO.STEP-1:SYS65374:POKEA,3:SYS65374:POKEA,5:NEXT:POKE198,.:RETURN
39 :
99 :
100 :PRINT"[158][147] [218]WEI [200]INTERGRUNDFARBEN IN [194]ASIC":POKE214,10
101 :PRINT"([196][210][213][197][195][203] [212][193][211][212][197])":A=53281:B=198:C=3:D=4:GOSUB20
105 :PRINT" [218]WEI [210]AHMENFARBEN     ":A=53280:B=198:C=3:D=4:GOSUB20
110 :PRINT" [218]WEI [218]EICHENSAETZE    ":A=53272:B=198:C=21:D=23:GOSUB20
120 :PRINT" [218]WEI [194]ILDSCHIRME      ":A=53272:B=198:C=39:D=23:GOSUB20
130 :PRINT" [212]EXT UND [199]RAFIKSCHIRM ":A=53265:B=198:C=43:D=27:GOSUB20
140 :PRINT" [218]WEI [211]CHIRM-[210]AENDER   ":A=53270:B=198:C=200:D=192:GOSUB20
150 :PRINT" [212]EXT+[200]INTERGRUND-[205]ODUS":A=53265:B=198:C=91:D=27:GOSUB20
160 :PRINT" [212]EXT+[193]USBLEND-[205]ODUS   ":A=53265:B=198:C=255:D=27:GOSUB20
175 :POKE53265,11:I=60:A=53280:GOSUB31:POKE53265,27
199 :
250 :LIST-22